home *** CD-ROM | disk | FTP | other *** search
/ The Complete Utilities To…ka 501 Killer Utilities! / 501 Killer Utilities! (Macworld July 1995).cdr / Programming / RLaB / examples / fac.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  112 b   |  14 lines  |  [TEXT/RLAB]
  1. //
  2. // Fac.r
  3. //
  4.  
  5. fac = function(a) 
  6. {
  7.   if(a <= 1) 
  8.   {
  9.       return 1;
  10.   else
  11.       return a*$self(a-1);
  12.   }
  13. };
  14.